home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 June / 64er_Magazin_89-06_1989_Markt__Technik_de_Side_B.d64 / install me (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  137 lines
  1. 1000 ifaathensys6144
  2. 1010 poke53281,0:poke53280,0:print"[153]"
  3. 1020 fori=1to3:readpr$(i):next
  4. 1030 data"menu+cli","menu    ","cli     "
  5. 1040 fori=0to3:readrm$(i):next
  6. 1050 data"ramdisk","puffer ","frei   ","prg    "
  7. 1060 c=(peek(1)and64)/-64:d0=8:d1=0
  8. 1070 d0$="vc 1571 als unit "+chr$(d0+48)
  9. 1080 d1$="keine ":d2$="nein"
  10. 1090 print"[147]"chr$(142)
  11. 1100 print"installationsprogramm zu bdos
  12. 1110 [153]:[153]
  13. 1120 [153]"hardware :"
  14. 1130 [153]
  15. 1140 [139]c[167][153]"1) computer :c128 (d)
  16. 1150 ifnotcthenprint"1) computer :c64     "
  17. 1160 print"2) 1.floppy :"d0$
  18. 1170 print"3) 2.floppy :"d1$
  19. 1175 rem  print"4) floppy an rs232:"d2$
  20. 1180 print""
  21. 1190 input"richtig (1-4/j) ";a$
  22. 1200 ifa$="j" then1440
  23. 1210 ifa$="1"thenc=-1-c:goto1100
  24. 1220 ifa$="2"thengosub1250:d0=d:d0$=d$:goto1090
  25. 1230 ifa$="3"thengosub1250:d1=d:d1$=d$:goto1090
  26. 1231 rem  ifa$="4"and d2$<>"ja  " then d2$="ja  ":goto1100
  27. 1232 rem  ifa$="4"and d2$<>"nein" then d2$="nein":goto1100
  28. 1240 goto1180
  29. 1250 print"[147]floppy :
  30. 1260 [153]"1) keine
  31. 1270 print"2) vc 1571
  32. 1280 [153]"3) vc 1570
  33. 1290 print"4) andere
  34. 1300 [153]""
  35. 1310 [133]"welche (1-4) ";a$
  36. 1320 [139]a$[179]"1"[176]a$[177]"4"[167]1300
  37. 1330 a[178][197](a$)
  38. 1340 [139]a[178]1[167]d$[178]"keine":d[178]0:[142]
  39. 1350 [139]a[178]2[167]d$[178]"vc 1571"
  40. 1360 [139]a[178]3[167]d$[178]"vc 1570"
  41. 1370 [139]a[178]4[167]d$[178]"andere floppy"
  42. 1380 [153]"
  43. 1390 input"geraeteadresse (4-15) ";a$
  44. 1400 d=val(a$)
  45. 1410 ifd<4ord>15then1380
  46. 1420 d$=d$+" als unit"+str$(d)
  47. 1430 return
  48. 1440 print"[147]":pr=1:fm=0:fori=5to8:m(i)=0:next
  49. 1445 if d2$="ja  " then m(8)=3
  50. 1450 ifcthens0=70
  51. 1460 ifnotcthens0=16
  52. 1470 ifpr=1thenb0=2:m(5)=3:m(6)=3
  53. 1480 ifpr=2thenb0=2:m(5)=3:m(6)=1
  54. 1490 ifpr=3thenb0=4:m(5)=1:m(6)=1
  55. 1500 mc=0:ifpr<3andnotcthenmc=3
  56. 1510 s1=0:b1=0
  57. 1520 s1=-4*((m(5)=0)+(m(6)=0)+(m(7)=0)+(m(8)=0))-2*(mc=0)
  58. 1530 fori=5to8:ifm(i)=3thennext:goto1550
  59. 1540 ifm(i)=1thenb1=b1+4:next
  60. 1550 si=s0+s1:si$=str$(si):bu=b0+b1:bu$=str$(bu)
  61. 1560 print""chr$(142)
  62. 1570 print"installationsprogramm zu bdos
  63. 1580 [153]
  64. 1590 [153]"software :"
  65. 1600 [153]"1) hauptprogramm :"pr$(pr)
  66. 1610 [153]"2) $8000-$9000   :"rm$(m(8))
  67. 1620 [153]"3) $7000-$8000   :"rm$(m(7))
  68. 1630 [153]"4) $6000-$7000   :"rm$(m(6))
  69. 1640 [153]"5) $5000-$6000   :"rm$(m(5))
  70. 1650 [153]"=> ramdisk       :"si$" kbyte  "
  71. 1660 [153]"=> puffergroesse :"bu$" kbyte  "
  72. 1670 [153]"
  73. 1680 input"richtig (1-5/j) ";a$
  74. 1690 ifa$="j"then1830
  75. 1700 ifa$<"1"ora$>"5"then1230
  76. 1710 a=val(a$):onagoto1730,1770,1750,1790,1810
  77. 1720 goto1440
  78. 1730 pr=pr+1:ifpr=4thenpr=1
  79. 1740 goto1470
  80. 1750 if m(7)<>3 thenm(7)=m(7)+1:ifm(7)=3thenm(7)=0
  81. 1760 goto1510
  82. 1770 if m(8)<>3 thenm(8)=m(8)+1:ifm(8)=3thenm(8)=0
  83. 1780 goto1510
  84. 1790 ifm(6)<>3thenm(6)=m(6)+1:ifm(6)=3thenm(6)=0
  85. 1800 goto1510
  86. 1810 ifm(5)<>3thenm(5)=m(5)+1:ifm(5)=3thenm(5)=0
  87. 1820 goto1510
  88. 1830 print"[147]installationsprogramm zu bdos
  89. 1840 [153]"geben sie ihre wunschfarben ein:":[153]
  90. 1850 [133]"hintergrund   6cmdcmdcmd";hf
  91. 1860 [153]:
  92. 1870 [133]"text          14cmdcmdcmdcmd";tf
  93. 1880 hf$[178][199](48[170]hf[171]7[172](hf[177]9))
  94. 1890 tf$[178][199](48[170]tf[171]7[172](tf[177]9))
  95. 1900 [153]"loadbitte warten, ich erstelle ladedatei
  96. 1910 open1,8,15,"s:autoload"
  97. 1920 close1
  98. 1930 open1,8,1,"autoload"
  99. 1940 print#1,"  bd  1.43ba\a000"
  100. 1950 m4$="f"
  101. 1960 ifpr=3andnotcthenprint#1,"cm  1.0a9f/a\9f00"
  102. 1970 ifpr<>3andnotcthenprint#1,"cs  1.1ec/a\c000":m4$="7"
  103. 1980 lr$="c":rem drive ramdisk
  104. 1990 la$="a":rem drive 1
  105. 2000 lb$="b":rem drive 2
  106. 2010 m3$="0":ifm(8)=0thenm3$="c"
  107. 2020 m2$="0"
  108. 2030 ifm(7)= 0andm(6)= 0thenm2$="f"
  109. 2040 ifm(7)<>0andm(6)= 0thenm2$="c"
  110. 2050 ifm(7)= 0andm(6)<>0thenm2$="3"
  111. 2060 m1$="0":ifm(5)=0thenm1$="3"
  112. 2070 mx$="0"+m1$+m2$+m3$+"0"+m4$
  113. 2080 ifnotcthen2120
  114. 2090 rd$="vr  2.0c98/a\9800\"+lr$+" 0"+mx$+"e3ffffffe"
  115. 2100 dd$="vd  1.5c9/a\9000\"
  116. 2105 xd$="vx  1.0b8/a\8000\d"
  117. 2110 goto2140
  118. 2120 rd$="cr  1.0c98/a\9800\"+lr$+" 4"+mx$+"f"
  119. 2130 dd$="cd  2.0a9/a\9000\"
  120. 2135 xd$="cx  1.0a8/a\8000\d"
  121. 2140 dd$=dd$+la$+":"+mid$(str$(d0),2)+",0 "
  122. 2150 ifd1=0then2170
  123. 2160 dd$=dd$+lb$+":"+mid$(str$(d1),2)+",0"
  124. 2170 print#1,rd$
  125. 2180 print#1,dd$
  126. 2185 if d2$="ja  "thenprint#1,xd$
  127. 2190 pr$="pr  2.2"+chr$(64+pr)+"28/a\2800\8 "+tf$+" "+hf$+" "
  128. 2200 b1=int(bu/4):b0=(bu-b1*4)*4
  129. 2210 pr$=pr$+chr$(48+b1)+chr$(48+b0)+"00"
  130. 2220 print#1,pr$
  131. 2230 close1
  132. 2240 print"fertig !"
  133. 2250 print:print
  134. 2260 input"wollen sie gleich starten (j/n) ";a$
  135. 2270 print:aa=1
  136. 2280 ifa$="j"thenload"loader 1.0d18",8,8
  137.